home *** CD-ROM | disk | FTP | other *** search
/ Print Library / Print Library.iso / library / menu / 00011.ls < prev    next >
Encoding:
Text File  |  1995-08-11  |  551 b   |  26 lines
  1. on mouseDown
  2.   set theSp to the clickOn
  3.   puppetSound("Click")
  4.   set the castNum of sprite (theSp - 3) to theSp - 5
  5.   updateStage()
  6.   repeat while the stillDown
  7.   end repeat
  8.   if theSp = 10 then
  9.     CreateTableObj("S820.TXT")
  10.     set theToFName to "Bu-1"
  11.   else
  12.     if theSp = 11 then
  13.       CreateTableObj("COLOR2S.TXT")
  14.       set theToFName to "Bu-2"
  15.     else
  16.       CreateTableObj("COLOR2.TXT")
  17.       set theToFName to "Bu-3"
  18.     end if
  19.   end if
  20.   puppetSprite(14, 0)
  21.   puppetSprite(15, 0)
  22.   puppetSprite(16, 0)
  23.   go(theToFName)
  24.   puppetSound(0)
  25. end
  26.